Imports System.Text


Public Class ACCabecera
#Region " Variables "
   Private m_texto As List(Of String)
   Private m_ancho As Integer
#End Region

#Region " Propiedades "

   Public Sub New()

   End Sub

   Public Property Ancho() As Integer
      Get
         Return m_ancho
      End Get
      Set(ByVal value As Integer)
         m_ancho = value
      End Set
   End Property

   Public Property Texto() As List(Of String)
      Get
         Return m_texto
      End Get
      Set(ByVal value As List(Of String))
         m_texto = value
      End Set
   End Property

   Public ReadOnly Property Lineas() As Integer
      Get
         If IsNothing(m_texto) Then
            Return 0
         Else
            Return m_texto.Count
         End If
      End Get
   End Property

#End Region

#Region " Constructores "
   Public Sub New(ByVal x_texto() As String)
      Try
         m_texto = New List(Of String)
         For Each Item As String In x_texto
            m_texto.Add(Item)
         Next
      Catch ex As Exception
         Throw ex
      End Try
   End Sub

   Public Sub New(ByVal x_texto() As String, ByVal x_ancho As Integer)
      Try
         m_ancho = x_ancho
         m_texto = New List(Of String)
         For Each Item As String In x_texto
            m_texto.Add(Item)
         Next
      Catch ex As Exception
         Throw ex
      End Try
   End Sub

   Public Sub New(ByVal x_texto As List(Of String), ByVal x_ancho As Integer)
      Try
         m_ancho = x_ancho
         m_texto = New List(Of String)(x_texto)
      Catch ex As Exception
         Throw ex
      End Try
   End Sub
#End Region

#Region " Metodos "

#End Region

End Class
